home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998…eptember: Technology Seed / September 98 ADC Seed CD.toast / LaserWriter 8.6b5 Seed / LaserWriter 8.6b5 / PrintingLib / PrintingLib.rsrc / PS_-8147 < prev    next >
Encoding:
Text File  |  1998-08-12  |  429 b   |  21 lines
  1. %%BeginFile: lw8_lwnames-2.0
  2. /fontstring(|______                                                  )def
  3. /fontname{
  4. currentdict/FontName known{
  5. fontstring 0
  6. currentdict/FontName get fontstring 7 50 getinterval{cvs}stopped{
  7. $error/newerror F put
  8. pop pop pop pop/customfont
  9. }{
  10. length 7 add getinterval cvn
  11. }ifelse
  12. }{
  13. /customfont
  14. }ifelse
  15. }bd
  16. /copyfontdict Z
  17. /rename{
  18. copyfontdict fontname currentdict end definefont pop
  19. }bd
  20. %%EndFile
  21.